package RenderTime;
use strict;
use warnings;
use Data::Dumper;
use Time::HiRes qw(gettimeofday);

sub new
{
	my $class = shift;
	return bless {
		start 	=> 0,
		stop	=> 0,
		spend	=> 0
	}, $class;	
}

sub start
{
	my $self = shift;
	$self->{start} = gettimeofday;	
}

sub stop
{
	my $self = shift;
	
	$self->{spend} = gettimeofday - $self->{start};	
}

sub spend
{
	my $self = shift;
	return 	$self->{spend};
}
1;